home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / conv / TxtToHTMLv1.4.lha / TxtToHTMLv1.4 / Install < prev    next >
Text File  |  2002-05-04  |  2KB  |  128 lines
  1. (welcome "")
  2.  
  3. (set @default-dest
  4.  (askdir
  5.   (prompt "Where do you want to install TxtToHTML ?\nThe TxtToHTML drawer will be created if you want.")
  6.   (help @askdir-help)
  7.   (default @default-dest)
  8.  )
  9. )
  10.  
  11.  
  12. (set cd
  13.  (askbool
  14.   (prompt "Can I create TxtToHTML drawer ?")
  15.   (help @askbool-help)
  16.   (default 1)
  17.   (choices "Yes" "No")
  18.  )
  19. )
  20.  
  21. (COMPLETE 20)
  22.  
  23. (if (= cd 1)
  24.     (makedir (tackon @default-dest "TxtToHTML"))
  25. )
  26. (if (= cd 1)
  27.     (copyfiles
  28.        (source "ForInstaller/TxtToHTML.info")
  29.        (dest @default-dest)
  30.     )
  31. )
  32. (if (= cd 1)
  33.     (set @default-dest (tackon @default-dest "TxtToHTML"))
  34. )
  35.  
  36.  
  37. (set sorg
  38.  (askchoice
  39.   (prompt "Which version of TxtToHTML do you want to install ?")
  40.   (help @askchoice-help)
  41.   (choices "GUI" "SHELL")
  42.   (default 0)
  43.  )
  44. )
  45.  
  46. (COMPLETE 30)
  47.  
  48. (set proc
  49.  (askchoice
  50.   (prompt "Which processor version do you want to install ? ")
  51.   (help @askchoice-help)
  52.   (choices "68000" "68020-60")
  53.   (default 1)
  54.  )
  55. )
  56.  
  57. (COMPLETE 50)
  58.  
  59. (if (= proc 1)
  60.  (copyfiles
  61.   (source "ForInstaller/TxtToHTML_68020-60") 
  62.   (dest @default-dest)
  63.   (help @copyfiles-help)
  64.  )
  65. )
  66. (if (= proc 1)
  67.  (rename (tackon @default-dest "TxtToHTML_68020-60") (tackon @default-dest "TxtToHTML"))
  68. )
  69.  
  70. (if (= proc 0)
  71.  (copyfiles
  72.   (source "ForInstaller/TxtToHTML_68000") 
  73.   (dest @default-dest)
  74.   (help @copyfiles-help)
  75.  )
  76. )
  77. (if (= proc 0)
  78.  (rename (tackon @default-dest "TxtToHTML_68000") (tackon @default-dest "TxtToHTML"))
  79. )
  80.  
  81. (if (= sorg 0)
  82.  (copyfiles
  83.   (source "TTHgui")
  84.   (dest @default-dest)
  85.  )
  86. )
  87. (if (= sorg 0)
  88.  (copyfiles
  89.   (source "TTHgui.info")
  90.   (dest @default-dest)
  91.  )
  92. )
  93. (if (= sorg 0)
  94.  (copyfiles
  95.   (source "Catalogs")
  96.   (dest (tackon @default-dest "Catalogs"))
  97.   (all)
  98.  )
  99. )
  100.  
  101. (COMPLETE 80)
  102.  
  103. (set docs
  104.  (askbool
  105.   (prompt "Copy docs (and icons) ?")
  106.   (help @askbool-help)
  107.   (default 1)
  108.   (choices "Yes" "No")
  109.  )
  110. )
  111.  
  112. (if (= docs 1)
  113.  (copyfiles
  114.   (source "Docs")
  115.   (dest (tackon @default-dest "Docs"))
  116.   (all)
  117.  )
  118. )
  119. (if (= docs 1)
  120.  (copyfiles
  121.   (source "Docs.info")
  122.   (dest @default-dest)
  123.  )
  124. )
  125.  
  126. (COMPLETE 100)
  127.  
  128. (exit)